Visual Basic Controls

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / popmail / formpopm.frm (.txt) next >

Wrap

Visual Basic Form | 1999-03-07 | 18.5 KB | 594 lines

VERSION 5.00 Object = "{011D53D6-D47F-11D2-B64B-444553540000}#1.0#0"; "POPMAIL.OCX" Begin VB.Form GetMailForm Caption = "POP_Mail ActiveX Control Demo" ClientHeight = 6750 ClientLeft = 60 ClientTop = 375 ClientWidth = 6225 LinkTopic = "Form1" ScaleHeight = 6750 ScaleWidth = 6225 StartUpPosition = 3 'Windows Default Begin POPMailProject.POPMail POPMail1 Left = 3000 Top = 4680 _ExtentX = 1058 _ExtentY = 1058 End Begin VB.TextBox Status BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 120 MultiLine = -1 'True ScrollBars = 3 'Both TabIndex = 22 Top = 5880 Width = 6015 End Begin VB.TextBox MailContents BackColor = &H00000000& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 1935 Left = 360 MultiLine = -1 'True ScrollBars = 3 'Both TabIndex = 21 Top = 2640 Width = 5535 End Begin VB.CommandButton Disconnect Caption = "Disconnect" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4200 TabIndex = 20 Top = 5160 Width = 1695 End Begin VB.CommandButton Last Caption = "Last" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4920 TabIndex = 19 Top = 2160 Width = 975 End Begin VB.CommandButton First Caption = "First" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 360 TabIndex = 18 Top = 2160 Width = 975 End Begin VB.TextBox MailSize Alignment = 2 'Center BackColor = &H00E0E0E0& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4200 TabIndex = 17 Top = 4680 Width = 855 End Begin VB.CommandButton PrevMail Caption = "Prev." BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3480 TabIndex = 14 Top = 2160 Width = 975 End Begin VB.CommandButton NextMail Caption = "Next" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1800 TabIndex = 13 Top = 2160 Width = 975 End Begin VB.TextBox TotalSize Alignment = 2 'Center BackColor = &H00E0E0E0& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4200 TabIndex = 10 Top = 1320 Width = 855 End Begin VB.TextBox MailIndex Alignment = 2 'Center BackColor = &H00E0E0E0& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1440 TabIndex = 9 Top = 4680 Width = 855 End Begin VB.TextBox TotalMail BackColor = &H00E0E0E0& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2400 TabIndex = 8 Top = 1320 Width = 855 End Begin VB.Timer Timer1 Interval = 100 Left = 0 Top = 240 End Begin VB.CommandButton Login Caption = "Connect " BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 360 TabIndex = 6 Top = 5160 Width = 1935 End Begin VB.TextBox Password BackColor = &H00E0E0E0& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2400 TabIndex = 5 Top = 960 Width = 3495 End Begin VB.TextBox Username BackColor = &H00E0E0E0& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2400 TabIndex = 4 Top = 600 Width = 3495 End Begin VB.TextBox ServerName BackColor = &H00E0E0E0& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2400 TabIndex = 3 Top = 240 Width = 3495 End Begin VB.Line Line12 BorderColor = &H00E0E0E0& X1 = 120 X2 = 120 Y1 = 1800 Y2 = 120 End Begin VB.Line Line11 BorderColor = &H00E0E0E0& X1 = 6120 X2 = 120 Y1 = 120 Y2 = 120 End Begin VB.Line Line2 BorderColor = &H00000000& X1 = 6120 X2 = 6120 Y1 = 120 Y2 = 1800 End Begin VB.Line Line1 BorderColor = &H00000000& X1 = 120 X2 = 6120 Y1 = 1800 Y2 = 1800 End Begin VB.Line Line10 BorderColor = &H00FFFFFF& X1 = 6000 X2 = 6000 Y1 = 2040 Y2 = 5640 End Begin VB.Line Line9 BorderColor = &H00000000& X1 = 6120 X2 = 6120 Y1 = 1920 Y2 = 5760 End Begin VB.Line Line8 BorderColor = &H00000000& X1 = 240 X2 = 240 Y1 = 2040 Y2 = 5640 End Begin VB.Line Line7 BorderColor = &H00E0E0E0& X1 = 120 X2 = 120 Y1 = 1920 Y2 = 5760 End Begin VB.Line Line6 BorderColor = &H00E0E0E0& X1 = 120 X2 = 6120 Y1 = 1920 Y2 = 1920 End Begin VB.Line Line5 BorderColor = &H00000000& X1 = 240 X2 = 6000 Y1 = 2040 Y2 = 2040 End Begin VB.Label Label6 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Octets" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 5040 TabIndex = 16 Top = 4680 Width = 855 End Begin VB.Line Line4 BorderColor = &H00000000& X1 = 120 X2 = 6120 Y1 = 5760 Y2 = 5760 End Begin VB.Line Line3 BorderColor = &H00FFFFFF& X1 = 240 X2 = 6000 Y1 = 5640 Y2 = 5640 End Begin VB.Label Label8 Alignment = 1 'Right Justify BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Mail No :" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 360 TabIndex = 15 Top = 4680 Width = 1095 End Begin VB.Label Label7 Alignment = 2 'Center BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "mail(s)" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 3240 TabIndex = 12 Top = 1320 Width = 855 End Begin VB.Label Label5 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Octets" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 5040 TabIndex = 11 Top = 1320 Width = 855 End Begin VB.Label Label4 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "You have" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 360 TabIndex = 7 Top = 1320 Width = 2055 End Begin VB.Label Label3 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Password" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 360 TabIndex = 2 Top = 960 Width = 2055 End Begin VB.Label Label2 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "Username" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 360 TabIndex = 1 Top = 600 Width = 2055 End Begin VB.Label Label1 BackColor = &H00000000& BorderStyle = 1 'Fixed Single Caption = "POP Server Name" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 375 Left = 360 TabIndex = 0 Top = 240 Width = 2055 End Attribute VB_Name = "GetMailForm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim MailNumber As Integer Private Sub Disconnect_Click() Login.Enabled = True POPMail1.Connected = False Status.Text = "Disconnected from POP server !" End Sub Private Sub First_Click() POPMail1.Mail_Index = 1 POPMail1.Get_Mail = True MailNumber = 1 End Sub Private Sub Form_Load() MailNumber = 0 End Sub Private Sub Last_Click() POPMail1.Mail_Index = POPMail1.Mail_Counter MailNumber = POPMail1.Mail_Counter POPMail1.Get_Mail = True End Sub Private Sub Login_Click() POPMail1.POP_Server_Name = ServerName.Text POPMail1.Username = Username.Text POPMail1.Password = Password.Text POPMail1.Connected = True Login.Enabled = False End Sub Private Sub NextMail_Click() MailNumber = MailNumber + 1 If MailNumber > POPMail1.Mail_Counter Then MailNumber = POPMail1.Mail_Counter Exit Sub End If POPMail1.Mail_Index = MailNumber POPMail1.Get_Mail = True End Sub Private Sub PrevMail_Click() MailNumber = MailNumber - 1 If MailNumber < 1 Then MailNumber = 1 Exit Sub End If POPMail1.Mail_Index = MailNumber POPMail1.Get_Mail = True End Sub Private Sub Timer1_Timer() DoEvents Status.Text = Status.Text + POPMail1.Connection_Status + vbCrLf TotalMail.Text = Str(POPMail1.Mail_Counter) MailContents.Text = POPMail1.Mail_Contents If MailNumber > 0 Then If POPMail1.Mail_Size > 0 Then MailSize.Text = Str(POPMail1.Mail_Size) End If End If If MailNumber = 0 Then TotalSize.Text = Str(POPMail1.Mail_Size) MailIndex.Text = Str(MailNumber) End Sub